www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModel\del_xml_biaos_inc.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<%

if qx_if_max=0 or qx_if_max="" then


response.redirect "../D_suodinguser.asp"
end if
%>


<%	








set rs11=server.CreateObject("adodb.recordset")
       
rs11.open "select * from ND_models_reg where id="&delmodid,conn,1,1

biao_rnd_qianzhui=rs11("all_biao_rnd_qianzhui")
model_folder_path=rs11("model_folder_path_name")



set filea1=new Cls_FSO




zimodelxmlph="../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile

if filea1.ReportFileStatus(server.mappath(zimodelxmlph))=1 then


strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)

set nodeazz=oXMLDomg.documentElement.selectNodes("zimodels/zimodel")
lentaazz=nodeazz.length
for liiz=1 to lentaazz
namezzz=cstr(trim(nodeazz(liiz-1).selectSingleNode("name").text))


'----------------------
zimodelxmlph="../../Model/Models/"&model_folder_path&"/"&iconfigbiaosfile
strXMLFile = Server.MapPath(zimodelxmlph)
oXMLDomg.Load(strXMLFile)

set nodek=oXMLDomg.documentElement.selectSingleNode("zimodels/zimodel[name='"&namezzz&"']")

set nodea3=nodek.selectNodes("ziduans/ziduan")
lentaaa=nodea3.length

for lii=1 to lentaaa
zd_typex=cstr(trim(nodea3(lii-1).selectSingleNode("field_GUI_type").text))
cangsx=cstr(trim(nodea3(lii-1).selectSingleNode("field_GUI_cangshuos").text))

'删分类表
if zd_typex="15" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call DelTablezu("["&biao_rnd_qianzhui&biaonameav_1&"]")
end if

'删专题表
if zd_typex="16" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call DelTablezu("["&biao_rnd_qianzhui&biaonameav_1&"]")
end if


'删复选框配置表
if zd_typex="27" then
biaonameav=split(cangsx,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call DelTablezu("["&biao_rnd_qianzhui&biaonameav_1&"]")
end if




'如果是多行多列输入框
'=============if 多行多列输入框======================

if zd_typex="24" then
biaonameav=split(cangsx,"|$aspcpu_f$|")
biaonameav_1=biaonameav(1)
biaonameav_1_p=split(biaonameav_1,"|$aspcpu_g$|")

if trim(biaonameav_1)="" then
pllentt=0
else
pllentt=ubound(biaonameav_1_p)+1
end if

for plniii=1 to pllentt
biaonameav_1_p_1=biaonameav_1_p(plniii-1)
biaonameav_1_p_1_p=split(biaonameav_1_p_1,"|$aspcpu_r1$|")
biaonameav_1_p_1_p_3=biaonameav_1_p_1_p(2)
pzd_typex=biaonameav_1_p_1_p_3
cangsx2=biaonameav_1_p_1_p(0)



'删分类表
if pzd_typex="15" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call DelTablezu("["&biao_rnd_qianzhui&biaonameav_1&"]")
end if

'删专题表
if pzd_typex="16" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call DelTablezu("["&biao_rnd_qianzhui&biaonameav_1&"]")
end if


'删复选框配置表
if pzd_typex="27" then
biaonameav=split(cangsx2,"|$aspcpu_a$|")
biaonameav_1=biaonameav(0)
call DelTablezu("["&biao_rnd_qianzhui&biaonameav_1&"]")
end if




next

end if




'================end if多行多列输入框===================









next



call DelTablezu("["&biao_rnd_qianzhui&namezzz&"]")



'------------------




'不删xml，因为可能再安装:
'不删xml，因为可能再安装:
'不删xml，因为可能再安装:
'set node=oXMLDomg.documentElement.selectSingleNode("zimodels/zimodel[name='"&namezzz&"']")
'node.ParentNode.RemoveChild(node)
'call SaveXMLDocumentgg(zimodelxmlph)


next


end if

set filea1=nothing

%>